home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / BASIC / WORDS (.txt) < prev   
Encoding:
Applesoft BASIC Source Code  |  1988-04-09  |  3.7 KB  |  74 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 631
  2. 1  LET IN$ = "X":TT = 0:BT = 24:M = 0: GOSUB 201: GOSUB 301: HOME :F$ = "WORDS.TEXT": GOSUB 601: GOSUB 231: GOSUB 151: GOSUB 231: GOSUB 151: GOSUB 231: GOSUB 151: POKE 32,0: VTAB 18: HTAB 1: PRINT  CHR$(93);: POKE 32,L:TT = 15:BT = 24: GOSUB 301: VTAB 18: SPEED= 10:SN = 1: GOSUB 421: SPEED= 255:M = 3: VTAB 20: HTAB 18: PRINT "(You press RETURN)";: GOSUB 151: VTAB 20: HTAB 5: CALL  -868:SN = 2: GOSUB 421:TT = 0:BT = 15: VTAB BT:M = 0
  3. 11  GOSUB 231: GOSUB 151:TT = 15:BT = 24: GOSUB 291:TT = 0: GOSUB 231
  4. 21 ET = 1
  5. 31 TT = 12:BT = 24: GOSUB 291: GOSUB 301: VTAB 13: GOSUB 341:W = 38:B = 10:T = 3:L = 1:X = 1: GOSUB 451: IF E = 1  THEN  GOSUB 311: PRINT "Please type PRINT and something": PRINT "inside quotations.": PRINT "Always remember to press RETURN.": GOTO 31
  6. 41 BS = X: GOSUB 491: ON E = 1 GOTO 31
  7. 51  GOSUB 451: IF E = 1  THEN  GOSUB 311: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "Don't be shy.  Please type": PRINT "PRINT and a word inside": PRINT "quotations.": GOTO 31
  8. 61  GOSUB 521: ON E = 1 GOTO 31: GOSUB 541: ON E = 1 GOTO 31: GOSUB 581: ON E = 1 GOTO 31:LE = SL -(X +1)
  9. 71 VP =  INT( LEN(AN$)/40): VTAB 14 +VP: PRINT  MID$ (AN$,X +1,LE);: GOSUB 311: PRINT "You did very well, ";NA$".": PRINT "Would you like to practice using": PRINT "the PRINT statement to print": PRINT "words again? (Y/N)";
  10. 81 CP = 1: GOSUB 341: IF AN$ = ""  THEN  VTAB 6: HTAB 33: CALL  -958: GOTO 81
  11. 91  IF  ASC(AN$) < >89  AND  ASC(AN$) < >78  THEN  VTAB 6: HTAB 33: CALL  -958: GOTO 81
  12. 101 CP = 0: IF  ASC(AN$) = 89  THEN TT = 15:BT = 24: GOSUB 291: GOSUB 311: HTAB L: VTAB T +1: PRINT "Okay, type PRINT and follow it": PRINT "with a literal quote.": PRINT "(Remember to press RETURN)": GOTO 21
  13. 111 TT = 0:BT = 24: GOSUB 291: GOSUB 231: GOSUB 151: GOSUB 231: GOSUB 151: GOSUB 231: GOSUB 151: GOSUB 231: GOSUB 151: GOSUB 231:ET = 1
  14. 121 TT = 15:BT = 24: GOSUB 291: GOSUB 301: VTAB 16: GOSUB 341:W = 38:B = 10:T = 3:L = 1:X = 1: GOSUB 451: IF E = 1  THEN  GOSUB 311: PRINT "Please type PRUNT and a number.": PRINT "Then press RETURN.  Try again.": GOTO 121
  15. 131 BS = X: IF  MID$ (AN$,X,5) < >"PRUNT"  THEN  GOSUB 311: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "You should type PRUNT 50": PRINT "one time in order to see what": PRINT "an error message looks like.": PRINT "Please try again.": GOTO 121
  16. 141  VTAB 20: PRINT  CHR$(7);: PRINT "?SYNTAX ERROR":TT = 0:BT = 15: GOSUB 291: GOSUB 231: GOSUB 151:TT = 15:BT = 24: GOSUB 291:TT = 0: GOSUB 231: POKE 930,1: GOSUB 151:TT = 0:BT = 24: GOSUB 291: GOSUB 611: PRINT : PRINT  CHR$(4);"RUN PROGRAM": END 
  17. 151  POKE  -16368,0
  18. 161 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 621: ON P < >13 GOTO 171: IF TE <225  THEN 161
  19. 171  IF P = 141  THEN TE = 0: CALL  -998: RETURN 
  20. 181 M$ = "Press RETURN": GOSUB 191: GOSUB 183: GOSUB 190: GOSUB 183: GOTO 181
  21. 183 Z = 55
  22. 184 P =  PEEK( -16384): IF P >127  THEN  POKE  -16368,0: GOTO 187
  23. 185 Z = Z -1: IF Z  THEN 184
  24. 186  RETURN 
  25. 187  IF P = 155  THEN  GOSUB 190: POP : POP : GOTO 621
  26. 188  IF P = 141  THEN  GOSUB 190: POP : GOTO 171
  27. 189  GOTO 185
  28. 190 M$ = "_____________"
  29. 191  VTAB B: HTAB M +(((W -L) - LEN(M$))/2): PRINT M$;: RETURN 
  30. 201  PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"READ CALLNAME": INPUT NA$: PRINT  CHR$(4);"CLOSE CALLNAME": RETURN 
  31. 211  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";: NEXT BD: FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD
  32. 221  POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : RETURN 
  33. 231  PRINT  CHR$(4);"READ ";F$:S$ = "":A$ = "":NL = 1: INPUT S$: IF S$ = "%"  THEN  GOSUB 291: INPUT T,B,L,W: GOSUB 211: GOTO 261
  34. 241  IF S$ = "&"  THEN  GOSUB 221
  35. 251  FOR H = T +1 TO B -1: VTAB H: HTAB 1: CALL  -868: NEXT H
  36. 261  CALL 813:IN$ =  MID$ (IN$,1): IF IN$ = "^"  THEN 281
  37. 271  VTAB T +NL: HTAB 1:NL = NL +1: PRINT IN$;: GOTO 261
  38. 281  RETURN 
  39. 291  POKE 32,0: POKE 33,40: POKE 34,TT: POKE 35,BT: HOME : RETURN 
  40. 301  POKE 32,0: POKE 33,40: POKE 34,TT: POKE 35,BT: RETURN 
  41. 311 TT = 0:BT = 12: GOSUB 301: IF ET = 1  THEN ET = ET +1: GOSUB 211: GOTO 331
  42. 321  GOSUB 221
  43. 331  HTAB L: VTAB T +1: FOR H = T +1 TO B -1: VTAB H: HTAB 1: CALL  -868: NEXT H: VTAB T +1: RETURN 
  44. 341  PRINT  CHR$(4): POKE  -16368,0:AN$ = "": ON CP = 1 GOTO 361
  45. 351  HTAB 1: PRINT  CHR$(93);
  46. 361 R = 0: CALL 768: FOR J = 512 TO 736:X =  PEEK(J): ON X = 155 GOTO 621: IF X = 141  THEN J = 736: GOTO 411
  47. 371  IF X = 162  THEN R = 1
  48. 381  IF R = 1  THEN 401
  49. 391 AN$ = AN$ + CHR$(X -128 -32 *(X >223)): GOTO 411
  50. 401 AN$ = AN$ + CHR$(X -128)
  51. 411  NEXT J:BU$ = AN$: RETURN 
  52. 421  IF SN = 1  THEN  HTAB 2: PRINT "PRINT "; CHR$(34);"HOT FUDGE SUNDAE"; CHR$(34)
  53. 431  IF SN = 2  THEN  HTAB 1: PRINT "HOT FUDGE SUNDAE"
  54. 441  RETURN 
  55. 451 E = 0
  56. 461  ON  MID$ (AN$,X,1) < >" " GOTO 481: IF X > =  LEN(AN$)  THEN E = 1: RETURN 
  57. 471 X = X +1: GOTO 461
  58. 481  RETURN 
  59. 491 E = 0: IF  MID$ (AN$,X,1) = "?"  THEN X = X +1: RETURN 
  60. 501 E = 0: IF  MID$ (AN$,X,5) = "PRINT"  THEN X = X +5: RETURN 
  61. 511 E = 1:TT = 0:BT = 15: GOSUB 311: HTAB L: VTAB T +1: PRINT "You typed "; MID$ (AN$,BS);".": PRINT "You didn't use PRINT.": PRINT "Please try again.": RETURN 
  62. 521 E = 0: IF  MID$ (AN$,X,1) =  CHR$(34)  THEN  RETURN 
  63. 531 E = 1: GOSUB 311: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "You forgot to use a quotation": PRINT "mark (" CHR$(34)") after the PRINT": PRINT "statement.  Please try again.": RETURN 
  64. 541 E = 0:SL = X +1
  65. 551  ON SL > LEN(AN$) GOTO 571: IF  MID$ (AN$,SL,1) < > CHR$(34)  THEN SL = SL +1: GOTO 551
  66. 561  IF  MID$ (AN$,SL,1) =  CHR$(34)  THEN  RETURN 
  67. 571 E = 1: GOSUB 311: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "Although it's not required, we'd": PRINT "like you to end your statement": PRINT "with a second "; CHR$(34);" mark. Try again.": RETURN 
  68. 581 E = 0: IF SL > = X +2  THEN  RETURN 
  69. 591 E = 1: GOSUB 311: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "It would help for now if you": PRINT "would enclose something inside": PRINT "the quotations.  Try again.": RETURN 
  70. 601  PRINT : PRINT  CHR$(4);"OPEN ";F$: RETURN 
  71. 611  PRINT : PRINT  CHR$(4);"CLOSE ";F$: RETURN 
  72. 621  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: GOSUB 611: PRINT : PRINT  CHR$(4);"RUN MENU"
  73. 631  RESUME 
  74. 32000  REM COPYRIGHT 1986,1988 APPLE COMPUTER, INC.